home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO038A.dsk / RMAP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  149 lines
  1. 100  REM   RMAP
  2. 110  TEXT : HOME 
  3. 120  POKE 49235,1: GR 
  4. 130  POKE 48984,192: REM    BITMAP
  5. 140  IF AUX < >1  THEN 230
  6. 150  IF MR = 1  THEN 210
  7. 160  PRINT D$;"SAVE /RAM/RMAP"
  8. 170  PRINT D$;"BLOAD MAP,A$400"
  9. 180  PRINT D$;"BSAVE/RAM/MAP,A$400,L$400"
  10. 190 MR = 1
  11. 200  GOTO 240
  12. 210  PRINT D$;"BLOAD /RAM/MAP,A$400"
  13. 220  GOTO 240
  14. 230  PRINT D$;"BLOAD MAP, A$400"
  15. 240  REM   SHOW UNIT LOCATIONS
  16. 250  PRINT : PRINT 
  17. 260  ON PL GOTO 510,940
  18. 270 F4 = 1: REM   SHOW ELIM VEHICLES
  19. 280  FOR X1 = 1 TO 600
  20. 290 E = HX%(X1,1):F1 = X1:F = HX%(X1,0)
  21. 292  IF E <6  AND F = 0  THEN 380
  22. 300  GOSUB 990
  23. 302  IF PL = 1  AND ((F >99)  AND F <199)  THEN TU$ = "MINEFIELD": GOSUB 1220: COLOR= 0: PLOT F2,F3
  24. 304  IF PL = 2  AND (F >199)  THEN TU$ = "MINEFIELD": GOSUB 1220: COLOR= 0: PLOT F2,F3
  25. 306  IF E <6  THEN 380
  26. 310  IF E <11  THEN  GOSUB 1190: GOTO 370: REM     TANK1
  27. 320  IF E <16  THEN  GOSUB 1250: GOTO 370: REM     APC1
  28. 330  IF E <21  THEN  GOSUB 1310: GOTO 370: REM    TANK2
  29. 340  IF E <26  THEN  GOSUB 1370: GOTO 370: REM     APC2
  30. 350  IF E <31  THEN  GOSUB 1430: GOTO 370: REM     SP1
  31. 360  IF E <36  THEN  GOSUB 1490: GOTO 370: REM     SP2
  32. 370  COLOR= 0: PLOT F2,F3
  33. 380  NEXT X1
  34. 390  REM   RETURN TO PLATOON
  35. 400  PRINT : PRINT 
  36. 410  PRINT "ENTER ANY NUMBER TO CONTINUE"
  37. 420  INPUT X
  38. 430  POKE 48984,207
  39. 440  PRINT D$;"FRE"
  40. 450  HOME 
  41. 460  REM   RETURN TO MAIN
  42. 470 GO = 7
  43. 480  POKE 103,1: POKE 104,24: POKE 6144,0
  44. 490  IF AUX  THEN  PRINT D$;"CHAIN /RAM/PLATOON."
  45. 500  PRINT D$;"CHAIN PLATOON."
  46. 510  REM   PL#1 UNIT LOCATIONS
  47. 520  FOR F = 1 TO 10
  48. 530  IF PA(F,1) <.7  THEN  GOTO 790
  49. 540 F1 = PA(F,4): REM   HEX #
  50. 550  IF F1 <1  THEN  GOTO 790
  51. 560  GOSUB 990: REM   CALC X,Y FROM HEXNO
  52. 570  ON PL GOTO 590,580
  53. 580  ON PB(F,6) GOTO 600,630,660,690,720
  54. 590  ON PA(F,6) GOTO 600,630,660,690,720
  55. 600 F4 = 3: REM   PURP,INF
  56. 610 TU$ = "   INFANTRY"
  57. 620  GOTO 740
  58. 630 F4 = 2: REM   DK.BLUE,ARM.
  59. 640 TU$ = "   TANK"
  60. 650  GOTO 740
  61. 660 F4 = 9: REM   ORANGE,APC
  62. 670 TU$ = " PERSONNEL CARRIER"
  63. 680  GOTO 740
  64. 690 F4 = 1: REM   MAGENTA,HQ
  65. 700 TU$ = "   LEADER"
  66. 710  GOTO 740
  67. 720 F4 = 13: REM   YELLOW, SP
  68. 730 TU$ = "    ARTILLERY"
  69. 740  PRINT 
  70. 750  PRINT 
  71. 760  PRINT 
  72. 770  PRINT "LOCATION OF UNIT # ";F;TU$
  73. 780  GOSUB 810: REM   SHOW LOCATION
  74. 790  NEXT F
  75. 800  GOTO 270: REM    SHOW ELIM VEHICLES
  76. 810  FOR X = 1 TO 15: REM   SUBR TO FLASH LOCATION
  77. 820  COLOR= F4
  78. 830  PLOT F2,F3
  79. 840  FOR TM = 1 TO 30: NEXT TM
  80. 850  COLOR= 0
  81. 860  PLOT F2,F3
  82. 870  FOR TM = 1 TO 30: NEXT TM
  83. 880  COLOR= F4
  84. 890  PLOT F2,F3
  85. 900  NEXT X
  86. 910  FOR TM = 1 TO 200: NEXT TM
  87. 920  RETURN 
  88. 930  GOTO 390: REM   TO READ MAP
  89. 940  REM   PL#2 UNIT LOCATIONS
  90. 950  FOR F = 1 TO 10
  91. 960  IF PB(F,1) <.7  THEN  GOTO 790
  92. 970 F1 = PB(F,4)
  93. 980  GOTO 550
  94. 990  IF F1 <31  THEN F2 = 10:F3 = F1: RETURN 
  95. 1000  IF F1 <61  THEN F2 = 11:F3 = F1 -30: RETURN 
  96. 1010  IF F1 <91  THEN F2 = 12:F3 = F1 -60: RETURN 
  97. 1020  IF F1 <121  THEN F2 = 13:F3 = F1 -90: RETURN 
  98. 1030  IF F1 <151  THEN F2 = 14:F3 = F1 -120: RETURN 
  99. 1040  IF F1 <181  THEN F2 = 15:F3 = F1 -150: RETURN 
  100. 1050  IF F1 <211  THEN F2 = 16:F3 = F1 -180: RETURN 
  101. 1060  IF F1 <241  THEN F2 = 17:F3 = F1 -210: RETURN 
  102. 1070  IF F1 <271  THEN F2 = 18:F3 = F1 -240: RETURN 
  103. 1080  IF F1 <301  THEN F2 = 19:F3 = F1 -270: RETURN 
  104. 1090  IF F1 <331  THEN F2 = 20:F3 = F1 -300: RETURN 
  105. 1100  IF F1 <361  THEN F2 = 21:F3 = F1 -330: RETURN 
  106. 1110  IF F1 <391  THEN F2 = 22:F3 = F1 -360: RETURN 
  107. 1120  IF F1 <421  THEN F2 = 23:F3 = F1 -390: RETURN 
  108. 1130  IF F1 <451  THEN F2 = 24:F3 = F1 -420: RETURN 
  109. 1140  IF F1 <481  THEN F2 = 25:F3 = F1 -450: RETURN 
  110. 1150  IF F1 <511  THEN F2 = 26:F3 = F1 -480: RETURN 
  111. 1160  IF F1 <541  THEN F2 = 27:F3 = F1 -510: RETURN 
  112. 1170  IF F1 <571  THEN F2 = 28:F3 = F1 -540: RETURN 
  113. 1180 F2 = 29:F3 = F1 -570: RETURN 
  114. 1190  REM   TANK1
  115. 1200  IF PL = 1  THEN TU$ = "DESTROYED FRIENDLY TANK"
  116. 1210  IF PL = 2  THEN TU$ = "DESTROYED ENEMY TANK"
  117. 1220  PRINT : PRINT : PRINT 
  118. 1230  PRINT TU$: GOSUB 810: REM   SHOW LOCATION
  119. 1240  RETURN 
  120. 1250  REM   APC1
  121. 1260  IF PL = 1  THEN TU$ = "DESTROYED FRIENDLY CARRIER"
  122. 1270  IF PL = 2  THEN TU$ = "DESTROYED ENEMY CARRIER"
  123. 1280  PRINT : PRINT : PRINT 
  124. 1290  PRINT TU$: GOSUB 810: REM    SHOW LOCATION
  125. 1300  RETURN 
  126. 1310  REM   TANK2
  127. 1320  IF PL = 1  THEN TU$ = "DESTROYED ENEMY TANK"
  128. 1330  IF PL = 2  THEN TU$ = "DESTROYED FRIENDLY TANK"
  129. 1340  PRINT : PRINT : PRINT 
  130. 1350  PRINT TU$: GOSUB 810: REM    SHOW LOCATION
  131. 1360  RETURN 
  132. 1370  REM   APC2
  133. 1380  IF PL = 1  THEN TU$ = "DESTROYED ENEMY CARRIER"
  134. 1390  IF PL = 2  THEN TU$ = "DESTROYED FRIENDLY CARRIER"
  135. 1400  PRINT : PRINT : PRINT 
  136. 1410  PRINT TU$: GOSUB 810: REM     SHOW LOCATION
  137. 1420  RETURN 
  138. 1430  REM   SP1
  139. 1440  IF PL = 1  THEN TU$ = "DESTROYED FRIENDLY ARTILLERY"
  140. 1450  IF PL = 2  THEN TU$ = "DESTROYED ENEMY ARTILLERY"
  141. 1460  PRINT : PRINT : PRINT 
  142. 1470  PRINT TU$: GOSUB 810: REM      SHOW LOCATION
  143. 1480  RETURN 
  144. 1490  REM   SP2
  145. 1500  IF PL = 1  THEN TU$ = "DESTROYED ENEMY ARTILLERY"
  146. 1510  IF PL = 2  THEN TU$ = "DESTROYED FRIENDLY ARTILLERY"
  147. 1520  PRINT : PRINT : PRINT 
  148. 1530  PRINT TU$: GOSUB 810: REM       SHOW LOCATION
  149. 1540  RETURN